home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Float.p < prev    next >
Text File  |  2004-01-31  |  4KB  |  127 lines
  1. pTempVar <- <primitive 110 25 >
  2. <primitive 112 pTempVar 1  " truncated " \
  3.   #( #[ 16r20 16r30 16rC7 16rF7 16r06 16r20 16rFA 16r01 16r49 16rF8 16r05 \
  4.         16rF2 16r20 16rFA 16r01 16r48 16rF3 16rF5] \
  5.     #( 0.0  )) >
  6.  
  7. <primitive 112 pTempVar 2  " sqrt " \
  8.   #( #[ 16r20 16rFA 16r01 16r47 16rF3 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " rounded " \
  12.   #( #[ 16r20 16r30 16rC0 16rFA 16r01 16r48 16rF3 16rF5] \
  13.     #( 0.5  )) >
  14.  
  15. <primitive 112 pTempVar 4  " radix: " \
  16.   #( #[ 16r20 16r21 16rFA 16r02 16r59 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 5  " ln " \
  20.   #( #[ 16r20 16rFA 16r01 16r46 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 6  " integerPart " \
  24.   #( #[ 16r20 16rFA 16r01 16r4B 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 7  " gamma " \
  28.   #( #[ 16r20 16rFA 16r01 16r4D 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 8  " fractionPart " \
  32.   #( #[ 16r20 16rFA 16r01 16r4C 16rF3 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 112 pTempVar 9  " floor " \
  36.   #( #[ 16r20 16rFA 16r01 16r48 16rF3 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 10  " exp " \
  40.   #( #[ 16r20 16rFA 16r01 16r4F 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 11  " coerce: " \
  44.   #( #[ 16r21 16r0A 16r10 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 12  " ceiling " \
  48.   #( #[ 16r20 16rFA 16r01 16r49 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 13  " asString " \
  52.   #( #[ 16r20 16rFA 16r01 16r4E 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 14  " asFloat " \
  56.   #( #[ 16r20 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 15  " arcTan " \
  60.   #( #[ 16r05 16r36 16r20 16rFA 16r01 16r56 16rB0 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 16  " arcSin " \
  64.   #( #[ 16r05 16r36 16r20 16rFA 16r01 16r54 16rB0 16rF3 16rF5] \
  65.     #(  )) >
  66.  
  67. <primitive 112 pTempVar 17  " arcCos " \
  68.   #( #[ 16r05 16r36 16r20 16rFA 16r01 16r55 16rB0 16rF3 16rF5] \
  69.     #(  )) >
  70.  
  71. <primitive 112 pTempVar 18  " ^ " \
  72.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  73.         16r58 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  74.        ] \
  75.     #( #raisedTo:  )) >
  76.  
  77. <primitive 112 pTempVar 19  " / " \
  78.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  79.         16r45 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  80.        ] \
  81.     #( #/  )) >
  82.  
  83. <primitive 112 pTempVar 20  " * " \
  84.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  85.         16r44 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  86.        ] \
  87.     #( #*  )) >
  88.  
  89. <primitive 112 pTempVar 21  " - " \
  90.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  91.         16r3D 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  92.        ] \
  93.     #( #-  )) >
  94.  
  95. <primitive 112 pTempVar 22  " + " \
  96.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  97.         16r3C 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  98.        ] \
  99.     #( #+  )) >
  100.  
  101. <primitive 112 pTempVar 23  " > " \
  102.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  103.         16r3F 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  104.        ] \
  105.     #( #>  )) >
  106.  
  107. <primitive 112 pTempVar 24  " < " \
  108.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  109.         16r3E 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  110.        ] \
  111.     #( #<  )) >
  112.  
  113. <primitive 112 pTempVar 25  " = " \
  114.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  115.         16r42 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  116.        ] \
  117.     #( #=  )) >
  118.  
  119. <primitive 98 #Float \
  120.   <primitive 97 #Float #Number #AmigaTalk:General/Float.st \
  121.    #(  ) \
  122.    #( #truncated #sqrt #rounded #radix: #ln #integerPart #gamma  \
  123.        #fractionPart #floor #exp #coerce: #ceiling #asString #asFloat #arcTan #arcSin  \
  124.        #arcCos #^ #/ #* #- #+ #> #< #=  ) \
  125.   pTempVar 2 4 > #ordinary >
  126.  
  127.